Voorbeeld van de eigenschap CommandBarEvents

Het volgende voorbeeld maakt gebruik van code waarin de eigenschap CommandBarEvents is opgenomen, om elke code te ondersteunen die nodig is om een muisklik op een opdrachtbalk te verwerken.

Private WithEvents ce As CommandBarEvents

Sub Test()
    Dim c As CommandBarControl
    Set c = Application.VBE.CommandBars("Extra").Controls(1)
    Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub

Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
    ' Put event-handling code here
End Sub